home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / f / final_writer / finalwriter4usaenglish1.dms / in.adf / FWMacros.lha / GfxCreateShapes < prev    next >
Encoding:
Text File  |  1994-09-29  |  1.8 KB  |  51 lines
  1. /* ====================================================== */
  2. /* Final Writer 3 ARexx Macro.                            */
  3. /* GfxCreateShapes - Create a few new shape graphics.     */
  4. /* $VER: GfxCreateShapes 1.0 (29.9.94)                    */
  5. /* © 1994 SoftWood, Inc.                                  */
  6. /* Use of this macro is strictly at the user's risk.      */
  7. /*                                                        */
  8. /* This macro demonstates how to use the new Final Writer */
  9. /* path commands to create the new shape graphics.        */
  10. /* ====================================================== */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. /* Points will be given in micropoints */
  15. /* Remember: 720 micropoints per inch. */
  16. SetMeasure MICROPOINTS
  17.  
  18. /* Create a triangle. */
  19. StartPath 1 720 720       /* (1, 1) */
  20. LineTo 1 1440 720         /* (2, 1) */
  21. LineTo 1 1440 1440        /* (2, 2) */
  22. LineTo 1 720 720          /* (1, 1) */
  23. EndPath CLOSE
  24.  
  25. /* Create an open bezier curve */
  26. StartPath 1 2160 720                        /* (3, 1) */
  27. CurveTo 1 2880 2160 3600 720 4320 1440      /* (4, 3) (5, 1) (6, 2) */
  28. EndPath
  29. SetObjectParams 0 FILL Transparent
  30.  
  31. /* Create another open bezier curve */
  32. StartPath 1 720 2880                        /* (1, 4) */
  33. CurveTo 1 1080 2160 1080 3600 1620 2880     /* (1.5, 3) (1.5, 5) (2.25, 4) */
  34. CurveTo 1 2160 3600 2160 2160 2520 2880     /* (3, 5)   (3, 3)   (3.5, 4)  */
  35. EndPath
  36. SetObjectParams 0 FILL Transparent
  37.  
  38. /* Create a close curve */
  39. StartPath 1 3420 3240                       /* (4.75, 4.5) */
  40. CurveTo 1 4320 1800 4860 2880 3780 3240     /* (6, 2.5) (6.75, 4) (5.25, 4.5) */
  41. EndPath CLOSE
  42.  
  43. /* Create a 4 sided closed shape */
  44. StartPath 1 720 4230      /* (1, 6)       */
  45. LineTo 1 1260 3780        /* (1.75, 5.25) */
  46. LineTo 1 3060 3960        /* (4.25, 5.5)  */
  47. LineTo 1 2160 5040        /* (3, 7)       */
  48. EndPath CLOSE
  49.  
  50. Redraw
  51. GraphicTool